tip 11

Sub autoOpen()
Dim strUser As String
On Error Resume Next
strUser = System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Logon User Name")
strUser = strUser & " (" & CStr(Date) & " " & CStr(Time) & ")"
ThisDocument.Variables.Add Name:="LastAccess", Value:=strUser
ThisDocument.Variables("LastAccess") = strUser & vbCr & ThisDocument.Variables("LastAccess")
ThisDocument.Save
End Sub
Sub showAccess()
MsgBox ThisDocument.Variables("LastAccess")
End Sub